COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00004 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC FUN.FUN[SCR,LCS];
COMMON TOOT,CLAR;
COMMON newfm,FM;
*

REVRB 0 0 1;P2  93;END;

FM  0 90;
P2 RHY/32X8/16//REP 10 2/32;	< quarter note, 2 eighths, half
P3 NU/200/80/REP 2,40/1000;
P4 1;					< maximum amplitude
P5 FUN/10//11;		  AMPL. FUNC.
P6 FUN/11/////10;				< FM INDEX ("SEG") function
P7 0  ;
P8 NU/2/25/8;	 < FM2
P9 NU/1.5/.625/P25/.7/2; CARRIER SCALE FACTOR
P10 1;  MODULATOR SCALE FACTOR
P12 .08;
P14 1;
P25 .50 .9 1.1  .5 5 9 ;
P26 DF NU/200.12X13/200.08;
END;
 
FM 27;
P2 RH/32;
END;
FM 67;
P2 RHY/32X8/16//REP 10 2/32//;	< quarter note, 2 eighths, half
P8 NU/2/25//8/;	 < FM2
P10 MOV/13 1,1 1,13;
P12 MOV/13 .08 .13/20 .13 .08;
P14 MOV/13 1  9/10  9 1/10 1 20;
END;